home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
fpkpas92.zip
/
SRCRTL.ZIP
/
RTL
/
DOS
/
MODES.INC
< prev
next >
Wrap
Text File
|
1997-07-01
|
808b
|
34 lines
{****************************************************************************
FPKPascal Runtime-Library
Copyright (c) 1994,96 by
Florian Klaempfl
****************************************************************************}
function getscreenmode : byte;
begin
dosmemget($40,$49,getscreenmode,1);
end;
procedure setscreenmode(mode : byte);
var regs : trealregs;
begin
{$ifdef GO32V2}
regs.realeax:=mode;
realintr($10,regs);
{$else GO32V2}
asm
movb 8(%ebp),%al
xorb %ah,%ah
pushl %ebp
int $0x10
popl %ebp
end;
{$endif GO32V2}
end;